﻿Imports System Imports System.Collections.Generic Imports System.Text 'Namespace DTO
Public Class CKey
#Region "Khai báo thuộc tính"
    Private _maHD As String
    Private _maSP As String
    Private _idSP As String
    Private _key As String
    Private _tinhTrang As String
    Private _ChiTietHoaDon_maHD As Integer
    Private _ChiThietHoaDon_maSP As Integer

    Public Property maHD() As String
        Get
            Return _maHD
        End Get
        Set(ByVal value As String)
            _maHD = value
        End Set
    End Property

    Public Property maSP() As String
        Get
            Return _maSP
        End Get
        Set(ByVal value As String)
            _maSP = value
        End Set
    End Property

    Public Property idSP() As String
        Get
            Return _idSP
        End Get
        Set(ByVal value As String)
            _idSP = value
        End Set
    End Property

    Public Property key() As String
        Get
            Return _key
        End Get
        Set(ByVal value As String)
            _key = value
        End Set
    End Property

    Public Property tinhTrang() As String
        Get
            Return _tinhTrang
        End Get
        Set(ByVal value As String)
            _tinhTrang = value
        End Set
    End Property

    Public Property ChiTietHoaDon_maHD() As Integer
        Get
            Return _ChiTietHoaDon_maHD
        End Get
        Set(ByVal value As Integer)
            _ChiTietHoaDon_maHD = value
        End Set
    End Property

    Public Property ChiThietHoaDon_maSP() As Integer
        Get
            Return _ChiThietHoaDon_maSP
        End Get
        Set(ByVal value As Integer)
            _ChiThietHoaDon_maSP = value
        End Set
    End Property

#End Region

#Region "Phương thức khởi tao"
    Public Sub New()
        Me.maHD = ""
        Me.maSP = ""
        Me.idSP = ""
        Me.key = ""
        Me.tinhTrang = 0
        Me.ChiTietHoaDon_maHD = 0
        Me.ChiThietHoaDon_maSP = 0
    End Sub
    Public Sub New(ByVal k As CKey)
        Me.maHD = k.maHD
        Me.maSP = k.maSP
        Me.idSP = k.idSP
        Me.key = k.key
        Me.tinhTrang = k.tinhTrang
        Me.ChiTietHoaDon_maHD = k.ChiTietHoaDon_maHD
        Me.ChiThietHoaDon_maSP = k.ChiThietHoaDon_maSP
    End Sub
    Public Sub New(ByVal ma_HD As String, ByVal ma_SP As String, ByVal id_SP As String, ByVal Key As String, ByVal tinh_Trang As Integer, ByVal ChiThietHoaDon_ma_HD As Integer, ByVal ChiThietHoaDon_ma_SP As Integer)
        Me.maHD = ma_HD
        Me.maSP = ma_SP
        Me.idSP = id_SP
        Me.key = Key
        Me.tinhTrang = tinh_Trang
        Me.ChiTietHoaDon_maHD = ChiThietHoaDon_ma_HD
        Me.ChiThietHoaDon_maSP = ChiThietHoaDon_ma_SP
    End Sub
#End Region
End Class
'End Namespace
